home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / dbase / fiasco.lha / Fiasco_1.2 / Databases / FAQs / scantxtdir.rexx < prev    next >
OS/2 REXX Batch file  |  1996-03-15  |  956b  |  67 lines

  1. /* Scandir.rexx
  2.  * Copyright © 1995-1996 Nils Bandener
  3.  * $VER: scantxtdir.rexx 3.3 (15.3.96)
  4.  */
  5.  
  6. Options Results
  7. Address FIASCO
  8.  
  9. Signal on Syntax
  10. Signal on Halt
  11. Signal on Break_C
  12. Signal on Failure
  13.  
  14. F_LockGUI
  15.  
  16. F_RequestFile Drawersonly
  17.  
  18. if rc = 0 then do
  19.  
  20.     directory = result
  21.  
  22.  
  23.     Address Command "list >t:files" directory "lformat %s%s files all pat ~(#?.info)"    /* Make a listing of all files in it */
  24.  
  25.     Address FIASCO
  26.  
  27.     if RC < 10 then do
  28.  
  29.         if Open("g", "t:files", "read") then do
  30.  
  31.             do while ~eof("g")
  32.                 file = ReadLn("g")
  33.                 if file ~= "" then do
  34.                     F_AddRecord
  35.                     F_SetFieldCont "File" file
  36.                 end
  37.             end
  38.  
  39.             call Close("g")
  40.         end
  41.  
  42.     end
  43. end
  44.  
  45. F_UnlockGUI
  46.  
  47. exit
  48.  
  49. Syntax:
  50. Failure:
  51. say "Error" rc "in line" sigl ":" errortext(rc)
  52. say file pat
  53.  
  54. Halt:
  55. Break_C:
  56.  
  57. Address FIASCO
  58.  
  59. F_UnlockGUI
  60. F_ResetStatus
  61.  
  62. say "Break"
  63.  
  64. exit
  65.  
  66.  
  67.